home *** CD-ROM | disk | FTP | other *** search
/ Backpacker 2 (Sweden) / BackPacker 2 (Sweden) (Disc 1).7z / BackPacker 2 (Sweden) (Disc 1).bin / pc / instdata / instin04 / 00048.ls < prev    next >
Encoding:
Text File  |  1997-01-01  |  1.7 KB  |  66 lines
  1. on draFramNytt
  2.   global gInitPaperPos
  3.   set the locV of sprite 3 to the locV of sprite 6
  4.   set the visible of sprite 3 to 1
  5.   repeat while the locV of sprite 3 < gInitPaperPos
  6.     set the locV of sprite 3 to the locV of sprite 3 + 1
  7.     updateStage()
  8.     startTimer()
  9.     repeat while the timer < 4
  10.     end repeat
  11.   end repeat
  12.   set the locV of sprite 3 to gInitPaperPos
  13.   set the visible of sprite 27 to 1
  14.   set the visible of sprite 26 to 1
  15.   spriteBox(26, the left of sprite 26, the bottom of sprite 27, the right of sprite 26, the bottom of sprite 26)
  16.   updateStage()
  17.   repeat with i = 1 to 7
  18.     set B to the blend of sprite 27
  19.     set the blend of sprite 27 to B + 5
  20.     set the blend of sprite 26 to B + 5
  21.     updateStage()
  22.     startTimer()
  23.     repeat while the timer < 3
  24.     end repeat
  25.   end repeat
  26. end
  27.  
  28. on doorBang
  29.   puppetSprite(11, 1)
  30.   set the member of sprite 11 to member "dooor"
  31.   puppetSound("bult")
  32.   updateStage()
  33.   startTimer()
  34.   repeat while the timer < 100
  35.     set the visible of sprite 11 to not (the visible of sprite 11)
  36.     updateStage()
  37.   end repeat
  38.   puppetSprite(11, 0)
  39. end
  40.  
  41. on knobTwist
  42.   puppetSprite(12, 1)
  43.   set the member of sprite 12 to member "handryck"
  44.   puppetSound("ryck")
  45.   updateStage()
  46.   startTimer()
  47.   repeat while the timer < 50
  48.     set the visible of sprite 12 to not (the visible of sprite 12)
  49.     updateStage()
  50.   end repeat
  51.   puppetSprite(12, 0)
  52. end
  53.  
  54. on grabHere
  55.   repeat with i = 1 to 5
  56.     set the visible of sprite 46 to not (the visible of sprite 46)
  57.     set the visible of sprite 47 to not (the visible of sprite 47)
  58.     updateStage()
  59.     startTimer()
  60.     repeat while the timer < 15
  61.     end repeat
  62.   end repeat
  63.   set the visible of sprite 46 to 0
  64.   set the visible of sprite 47 to 0
  65. end
  66.